home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / t_os / nachel / nachle11.bas next >
BASIC Source File  |  1994-06-01  |  4KB  |  125 lines
  1. 10 '★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
  2. 20 '☆★☆★☆★☆★☆　   ナックル v1.1 　   ★☆★☆★☆★☆★☆★☆★
  3. 30 '★☆★☆★☆★☆★ Presented by T.Koizumi ☆★☆★☆★☆★☆★☆★☆
  4. 40 '☆★☆★☆★☆★☆    SINCE 1993-1994     ★☆★☆★☆★☆★☆★☆★
  5. 50 '★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
  6. 60  SCREEN@0
  7. 70 COLOR 7,0
  8. 80 CLS
  9. 90  CONSOLE 3,21,2
  10. 100 ON ERROR GOTO *エラー
  11. 110 '
  12. 120 '▼タイトル表示
  13. 130 SYMBOL ( 0, 0),"ナックル  v 1.1     PRESENTED BY T.Koizumi    SINCE 1993-1994",1,1,7
  14. 140 SYMBOL (20,20),"（要ＲＡＭ：２ＭＢ　ＴＯＷＮＳ－II推奨　ハードディスク推奨　ビデオカード必須）",1,1,7
  15. 150 '
  16. 160 '▼諸事項設定
  17. 170 INPUT "保存するドライブを入力してください([EXIT]で終了)。",D$
  18. 180  IF D$="EXIT" OR D$="exit" THEN END
  19. 190  IF LEN(D$)<>1 THEN 150
  20. 200 PRINT
  21. 210 '
  22. 220 INPUT "ファイル名を入力してください(拡張子を付けずに４字以内，[EXIT]で終了)。",F$
  23. 230  IF LEN(F$)<1 OR LEN(F$)>4 THEN 220
  24. 240  IF F$="EXIT" OR F$="exit" THEN END
  25. 250 PRINT 
  26. 260 '
  27. 270 INPUT "何枚連続で取りますか？（１～９９９９枚）",I
  28. 280  IF I<1 OR I>=10000 THEN 250
  29. 290 '
  30. 300  I$=AKCNV$(MID$(STR$(I),2))
  31. 310  DD$=AKCNV$(D$)
  32. 320 '
  33. 330 '▼操作説明
  34. 340 PRINT 
  35. 350 PRINT 
  36. 360 LOCATE 25
  37. 370 PRINT "  ★  操 作 説 明  ★"
  38. 380 PRINT
  39. 390 PRINT " 1.取りたい画像があったときにリターンキーを押します。取り込んでください。画像は    随時保存されます。"
  40. 400 PRINT " 2.すると、ドライブ"+DD$+"に ["+F$+"****.tif] というファイル名で保存されます。"
  41. 410 PRINT " 3.保存が完了したら、自動的に取り込み画面に戻ります。"
  42. 420 PRINT "    　（戻らない時は、リターンキーを押してみてください。）"
  43. 430 PRINT " 4."+I$+"枚取り込んだ時点でメニューに戻ります。"
  44. 440 PRINT 
  45. 450 PRINT "     ◎ 尚、編集途中でもブレークキーで中断できます。"
  46. 460 PRINT 
  47. 470 PRINT 
  48. 480 PRINT " 　　　　　     ＊＊＊　リターンで取り込み開始します　＊＊＊"
  49. 490 X$=INPUT$(1)
  50. 500 '
  51. 510 '▼ビデオ画面取り込み
  52. 520  SCREEN@ 1
  53. 530  CLS
  54. 540   SPRITE ON
  55. 550   SINPUT
  56. 560  A$=INPUT$(1)
  57. 570 '
  58. 580 '▼保存処理
  59. 590  T=T+1
  60. 600   T$=STR$(T)
  61. 610   T$=MID$(T$,2)
  62. 620  SAVE@ D$+":"+F$+T$+".tif",(0,0)-(319,239)
  63. 630   WAIT 20
  64. 640  'SINPUT
  65. 650   IF T=I THEN 680 ELSE 590
  66. 660 '
  67. 670 '▼終了告知
  68. 680  SPRITE OFF
  69. 690  CLS
  70. 700   LOCATE 12,11
  71. 710   PRINT "＊＊＊　終了しました。リターンキーを押して下さい。　＊＊＊"
  72. 720  A$=INPUT$(1)
  73. 730  CLS
  74. 740 GOTO 60
  75. 750 '
  76. 760 '▼エラー処理
  77. 770 '
  78. 780 *エラー
  79. 790  SPRITE OFF
  80. 800  CLS
  81. 810   IF ERR=53 THEN  990
  82. 820   IF ERR=67 THEN 1080
  83. 830   IF ERR=72 THEN  990
  84. 840   IF ERR=73 THEN 1170
  85. 850 '
  86. 860  LOCATE 21,9
  87. 870   PRINT "＊＊＊　エラーが発生しました　＊＊＊"
  88. 880  LOCATE 28,11
  89. 890   PRINT USING "エラー番号･･･････ ###";ERR
  90. 900  LOCATE 28,12
  91. 910   PRINT USING "エラー発生行･････####";ERL
  92. 920  LOCATE 11,14
  93. 930   PRINT "Ｔｏｗｎｓ　Ｍｅｎｕに戻ります。何かキーを押してください。"
  94. 940  '
  95. 950  A$=INPUT$(1)
  96. 960   SYSTEM
  97. 970 '
  98. 980 '▼ディスクが入っていない
  99. 990  LOCATE 11,11
  100. 1000   PRINT "＊＊＊　指定されたドライブにディスクがありません。　＊＊＊"
  101. 1010  LOCATE 20,13
  102. 1020   PRINT "　ディスクを入れ、何かキーを押してください。"
  103. 1030 '
  104. 1040  A$=INPUT$(1)
  105. 1050 RESUME 520
  106. 1060 '
  107. 1070 '▼ディスクに空きがない
  108. 1080  LOCATE 15,11
  109. 1090   PRINT "＊＊＊　ディスクに空き領域がありません。　＊＊＊"
  110. 1100  LOCATE 11,13
  111. 1110   PRINT "空き領域のあるディスクを入れ、何かキーを押してください。"
  112. 1120 '
  113. 1130  A$=INPUT$(1)
  114. 1140 RESUME 520
  115. 1150 '
  116. 1160 '▼ディスクが書き込み禁止
  117. 1170  LOCATE 12,11
  118. 1180   PRINT "＊＊＊　ディスクにプロテクトがかかっています。　＊＊＊"
  119. 1190  LOCATE 6,13
  120. 1200   PRINT "プロテクトのかかっていないディスクを入れ、何かキーを押してください。"
  121. 1210 '
  122. 1220  A$=INPUT$(1)
  123. 1230 RESUME 520
  124. 1240 '
  125.